home *** CD-ROM | disk | FTP | other *** search
/ Cracking 2 / Cracking II..iso / Texty / crackme / Exec_01_Keygen.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-07-25  |  2.5 KB  |  76 lines
  1. VERSION 5.00
  2. Begin VB.Form Form1 
  3.    Caption         =   "Execution Crackme 0.1 keygen"
  4.    ClientHeight    =   3195
  5.    ClientLeft      =   60
  6.    ClientTop       =   345
  7.    ClientWidth     =   4680
  8.    LinkTopic       =   "Form1"
  9.    ScaleHeight     =   3195
  10.    ScaleWidth      =   4680
  11.    StartUpPosition =   3  'Windows Default
  12.    Begin VB.TextBox Text2 
  13.       Height          =   495
  14.       Left            =   960
  15.       TabIndex        =   3
  16.       Top             =   2160
  17.       Width           =   3255
  18.    End
  19.    Begin VB.CommandButton Command1 
  20.       Caption         =   "Calculates the serial"
  21.       Default         =   -1  'True
  22.       Height          =   495
  23.       Left            =   1320
  24.       TabIndex        =   2
  25.       Top             =   1320
  26.       Width           =   2055
  27.    End
  28.    Begin VB.TextBox Text1 
  29.       Height          =   495
  30.       Left            =   960
  31.       TabIndex        =   0
  32.       Top             =   600
  33.       Width           =   3255
  34.    End
  35.    Begin VB.Label Label2 
  36.       Caption         =   "Serial :"
  37.       Height          =   375
  38.       Left            =   120
  39.       TabIndex        =   4
  40.       Top             =   2160
  41.       Width           =   735
  42.    End
  43.    Begin VB.Label Label1 
  44.       Caption         =   "Name :"
  45.       Height          =   255
  46.       Left            =   120
  47.       TabIndex        =   1
  48.       Top             =   720
  49.       Width           =   735
  50.    End
  51. Attribute VB_Name = "Form1"
  52. Attribute VB_GlobalNameSpace = False
  53. Attribute VB_Creatable = False
  54. Attribute VB_PredeclaredId = True
  55. Attribute VB_Exposed = False
  56. Private Sub Command1_Click()
  57. edi = 0 ' initializes the value of edi
  58. user_name = UCase(Text1.Text) ' Name in upper case
  59. 'Beginning of the loop
  60. For i = 1 To Len(user_name)
  61.     Char_name = Asc(Mid$(user_name, i, 1)) 'this will return
  62.                                             'the char(i) from the name
  63.                 eax = Char_name
  64.                 eax = eax - &H40    ' ax = ax - 40h
  65.                 eax = eax * &H82     ' ax = ax * 82h
  66.                 eax = eax + edi
  67.                 eax = eax + (&H50 * 16) ' add 50h 16 times to ax
  68.                 edi = eax           ' stores eax in edi
  69.     Next i
  70.     serial = edi
  71.     If serial > 32768 Then MsgBox "It won't work with the crackme (Reason : Overflow)", vbOKOnly, "Be careful"
  72.     Text2.Text = serial
  73.  Clipboard.SetText Text2.Text 'copy the serial to clipboard
  74.             
  75. End Sub
  76.